|
AutoCAD VBA : Arbeiten mit Dictionaries
GustavZwo am 13.01.2009 um 09:51 Uhr (0)
Guten Tag, der Test aller Dictionaries in einer neuen Zeichnung zeigt, daß Wörterbuch 0 und 1 nicht existiert oder verborgen ist.Dafür gibt es ACAD_MLINESTYLE gleich zweimal mit Nr 2 u. 3 Sub zeigeDictionaries() Dim Dic As AcadDictionary Dim i As Integer On Error Resume Next For i = 0 To ThisDrawing.Dictionaries.Count - 1 Set Dic = ThisDrawing.Dictionaries(i) Debug.Print i & " " & Dic.Name NextEnd SubResultat:2 ACAD_MLINESTYLE3 ACAD_MLINESTYLE4 ACAD_PLOTSTYLENAME5 ReferenzPunktDictionary (nach ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Arbeiten mit Dictionaries
GustavZwo am 22.12.2008 um 08:59 Uhr (0)
Guten Tag, ich habe da wieder einmal ein Problem. Ich versuche innerhalb einer Zeichnung ein Dictionary zu eröffnen um darin z.B. bestimmte Punkte zu speichernSub ErzeugeDictionary() Dim d As Variant Dim i As Integer Set d = ThisDrawing.Dictionaries.Add("FußPunkte") MsgBox d.Name & " wurde neu erzeugt", , "Dictionary" geht, o.k. d.Add "01", "0.0,0.0,0.0" Hier kommt VB-Fehlermeldung 438 "Objekt d.Add "02", "4.0,5.4,6.2" unterstützt diese Eigenschaft oder d.Add "03", "3.4,2.4,3.3 ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Arbeiten mit Dictionaries
GustavZwo am 08.01.2009 um 23:26 Uhr (0)
Guten Tag,beim Verarbeiten der Tips blieb ich wieder hängen.Was ich will: ich will in einer Zeichnung eine Reihe "Textmarken" in Form eines Punktes unterbringen.Die Textmarken sollen in einem Dictionary abgespeichert werden, Key=fortlaufende Nummer, Wert ist ein Punkt,genauer gesagt, drei Koordinaten x,y,z, zusammengefaßt in einem Array.Die Punkte will ich später der Reihe nach aufrufen und als Referenzpunkt z.B. eines Blockes nutzen.1 Public Sub speicherePt()2 Dim oDict As AcadDictionary3 Dim oXRec As A ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
